home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / begmnu17.zip / BEGIN.DEF next >
Text File  |  1988-08-06  |  7KB  |  319 lines
  1. ; Begin LogiMouse Mouse Menu for Begin v1.5 & v1.6
  2. ; August 6, 1988
  3. ; Written by:
  4. ;    John Prebit
  5. ; Copyright August 6, 1988 by 
  6. ; DigiTech Computer Consulting Services
  7. ;    708 Main St.,
  8. ; Plantsville, Connecticut 06479
  9. ;    (203) 621-9348
  10. ;
  11. ;            NOTICE
  12. ;  This program is released to the public domain.  It may be
  13. ;  reproduced and modified for personal use only.  This program 
  14. ;  MAY NOT be sold in any form.  Software vendors may, however,
  15. ;  include it with software for sale, PROVIDED THAT:
  16. ;    1. It is included without charge 
  17. ;    2. This notice is included in total
  18. ;    3. Full credit is given to the author and copyright holder
  19. ;
  20. ;  Requires the use of Logitech MENU.COM and MOUSE.COM (or
  21. ;  MOUSE.SYS)
  22.  
  23.  
  24. BEGIN lfbtn,escape,return,lfmot,rtmot,upmot,dnmot,100,100
  25.  
  26. lfbtn:        MENU " - Control - ",1,27,NORMAL
  27.         OPTION "Weapons",weapmenu
  28.         OPTION "Status",statmenu
  29.         OPTION "NavCom",navcom
  30.         OPTION "Library",libmenu
  31.         OPTION "Fleet",
  32.         MEND
  33.  
  34. lfmot:        TYPE 0,75
  35. rtmot:        TYPE 0,77
  36. upmot:        TYPE 0,72
  37. dnmot:        TYPE 0,80
  38. altc:        TYPE 3
  39. return:        TYPE 13
  40. escape:        TYPE 27
  41.  
  42.  
  43. ;    library code begins here
  44.  
  45.  
  46. libmenu:    EXECUTE lib,c2
  47. c2:        MENU " Select Category ",1,5,NORMAL
  48.         OPTION "Ship",listship
  49.         OPTION "Torpedo",listtorp
  50.         OPTION "Probe",listpr
  51.         MEND
  52.  
  53. listship:    EXECUTE sh,nation
  54. listtorp:    EXECUTE torp,torpclass
  55. listpr:        EXECUTE pr,prclass
  56.  
  57. lib:        TYPE "lib "
  58. sh:        TYPE "sh "
  59. pr:        TYPE "pr "
  60.  
  61.  
  62. nation:        MENU " Select Nation ",1,5,NORMAL
  63.         OPTION "Federation",fed
  64.         OPTION "Klingon",kling
  65.         OPTION "Romulan",rom
  66.         OPTION "Orion",orion
  67.         MEND
  68.  
  69. fed:        EXECUTE fed1,fshipclass
  70. kling:        EXECUTE kling1,kshipclass
  71. rom:        EXECUTE rom1,rshipclass
  72. orion:        EXECUTE orion1,oshipclass
  73.  
  74. fed1:        TYPE "fed "
  75. kling1:        TYPE "kl "
  76. rom1:        TYPE "rom "
  77. orion1:        TYPE "o "
  78.  
  79.  
  80. fshipclass:    MENU " Select Class ",1,5,NORMAL
  81.         OPTION "Interceptor",fint
  82.         OPTION "Destroyer",fdest
  83.         OPTION "Heavy Cruiser",fhc
  84.         OPTION "Dreadnaught",fdread
  85.         MEND
  86.  
  87. fint:        TYPE "I",13
  88. fdest:        TYPE "de",13
  89. fhc:        TYPE "h",13
  90. fdread:        TYPE "dr",13
  91.  
  92.  
  93. kshipclass:    MENU " Select Class ",1,5,NORMAL
  94.         OPTION "Escort",kesc
  95.         OPTION "Frigate",kfrig
  96.         OPTION "Battle Cruiser",kbc
  97.         OPTION "Dreadnaught",kdread
  98.         MEND
  99.  
  100. kesc:        TYPE "e",13
  101. kfrig:        TYPE "f",13
  102. kbc:        TYPE "b",13
  103. kdread:        TYPE "dr",13
  104.  
  105.  
  106. rshipclass:    MENU " Select Class ",1,5,NORMAL
  107.         OPTION "War Eagle",reagl
  108.         OPTION "Bird of Prey",rbird
  109.         OPTION "Frigate",rfrig
  110.         MEND
  111.  
  112. reagl:        TYPE "w",13
  113. rbird:        TYPE "b",13
  114. rfrig:        TYPE "f",13
  115.  
  116.  
  117. oshipclass:    MENU " Select Class ",1,5,NORMAL
  118.         OPTION "Assasin",oass
  119.         OPTION "Raider",oraid
  120.         OPTION "Sabotuer",osab
  121.         OPTION "Anarchist",oana
  122.         MEND
  123.  
  124. oass:        TYPE "as",13
  125. oraid:        TYPE "r",13
  126. osab:        TYPE "s",13
  127. oana:        TYPE "an",13
  128.  
  129.  
  130.  
  131.  
  132. torpclass:    MENU " Select Class ",1,5,NORMAL
  133.         OPTION "··  mkvii  ",mkvii
  134.         OPTION "··  ktx    ",ktx
  135.         OPTION "   plasma ",plasma
  136.         OPTION "   Xplasma",xplasma
  137.         OPTION "··  opbt   ",opbt
  138.         MEND
  139.  
  140. mkvii:        TYPE "mk",13
  141. ktx:        TYPE "ktx",13
  142. plasma:        TYPE "pl",13
  143. xplasma:    TYPE "xpl",13
  144. opbt:        TYPE "o",13
  145.  
  146.  
  147. prclass:    MENU " Select Class ",1,5,NORMAL
  148.         OPTION "φ  pxii",pxii
  149.         OPTION "Φ  klpp",klpp
  150.         OPTION "∞  dnk ",dnk
  151.         OPTION "Θ  rmpp",rmpp
  152.         MEND
  153.  
  154. pxii:        TYPE "px",13
  155. klpp:        TYPE "klpp",13
  156. dnk:        TYPE "dnk",13
  157. rmpp:        TYPE "rmpp",13
  158.  
  159.  
  160.  
  161.  
  162. ;    status code begins here
  163.  
  164.  
  165. statmenu:    MENU "    Systems Status    ",1,23,NORMAL
  166.         OPTION "Scan Ship",scan
  167.         OPTION "Report",report
  168.         OPTION "Scanning Range",range
  169.         OPTION "Damage Control",damage
  170.         OPTION "Shields",shields
  171.         OPTION "Phaser Banks",banks
  172.         OPTION "Torpedo Tubes",tubes
  173.         OPTION "Probes",stpr
  174.         OPTION "Launchers",launchers
  175.         MEND
  176.  
  177. stat:        TYPE "st "
  178. scan:        TYPE "scan",13
  179. report:        TYPE "re",13
  180. range:        TYPE "ra ",13
  181. damage:        TYPE "dam",13
  182. shields:    TYPE "sh",13
  183. banks:        TYPE "ba",13
  184. tubes:        TYPE "tubes",13
  185. stpr:        TYPE "st pr",13
  186. launchers:    TYPE "st la",13
  187.  
  188.  
  189.  
  190. ;        weapons code begins here
  191.  
  192.  
  193. weapmenu:    MENU "   Fire Control   ",1,24,NORMAL
  194.         OPTION "Fire",firec
  195.         OPTION "Lock",lockc
  196.         OPTION "Enable",enablec
  197.         OPTION "Load",loadc
  198.         OPTION "Detonate",detonatec
  199.         OPTION "Disable",disablec
  200.         OPTION "Unload",unloadc
  201.         OPTION "Turn",turnc
  202.         MEND
  203.  
  204.  
  205. firec:        EXECUTE selectweap,howmany,ten,return
  206. enablec:    EXECUTE enable,selectweap,howmany,return
  207. disablec:    EXECUTE disable,selectweap,howmany,return
  208. loadc:        EXECUTE load,selectweap,howmany,return
  209. unloadc:    EXECUTE unload,selectweap,howmany,return
  210. lockc:        EXECUTE lock,selectweap,howmany,return
  211. turnc:        EXECUTE turn,selectweap,howmany,return
  212. detonatec:    EXECUTE detonate,return
  213.  
  214.  
  215. phas:        TYPE "phas "
  216. torp:        TYPE "torp "
  217. probe:        TYPE "probe "
  218. enable:        TYPE "enable "
  219. disable:    TYPE "disable "
  220. load:        TYPE "load "
  221. unload:        TYPE "unload "
  222. lock:        TYPE "lock "
  223. turn:        TYPE "turn "
  224. detonate:    TYPE "detonate "
  225. all:        TYPE "all "
  226. zero:        TYPE "0 "
  227. one:        TYPE "1 "
  228. two:        TYPE "2 "
  229. three:        TYPE "3 "
  230. four:        TYPE "4 "
  231. five:        TYPE "5 "
  232. six:        TYPE "6 "
  233. seven:        TYPE "7 "
  234. eight:        TYPE "8 "
  235. ten:        TYPE "10 "
  236. fifteen:    TYPE "15 "
  237. twenty:        TYPE "20 "
  238. twentyfive:    TYPE "25 "
  239. thirty:        TYPE "30 "
  240. thirtyfive:    TYPE "35 "
  241. forty:        TYPE "40 "
  242. fortyfive:    TYPE "45 "
  243. done:        TYPE ""
  244.  
  245.  
  246. selectweap:    MENU "Select Weapon",1,26,NORMAL
  247.         OPTION "Phasers",phas
  248.         OPTION "Torpedos",torp
  249.         OPTION "Probes",probe
  250.         MEND
  251.  
  252.  
  253. howmany:    MENU "Select",1,30,NORMAL
  254.         OPTION "Single",single
  255.         OPTION "All",all
  256.         OPTION "Done",done
  257.         MEND
  258.  
  259.  
  260. single:        MENU "Select",1,30,NORMAL
  261.         OPTION "1",onec
  262.         OPTION "2",twoc
  263.         OPTION "3",threec
  264.         OPTION "4",fourc
  265.         OPTION "5",fivec
  266.         OPTION "6",sixc
  267.         OPTION "7",sevenc
  268.         OPTION "8",eightc
  269.         MEND
  270.  
  271.  
  272. onec:        EXECUTE one,howmany
  273. twoc:        EXECUTE two,howmany
  274. threec:        EXECUTE three,howmany
  275. fourc:        EXECUTE four,howmany
  276. fivec:        EXECUTE five,howmany
  277. sixc:        EXECUTE six,howmany
  278. sevenc:        EXECUTE seven,howmany
  279. eightc:        EXECUTE eight,howmany
  280.  
  281.  
  282. spread:        MENU "Select Dispersion",1,5
  283.         OPTION "0",zero
  284.         OPTION "5",five
  285.         OPTION "10",ten
  286.         OPTION "15",fifteen
  287.         OPTION "20",twenty
  288.         OPTION "25",twentyfive
  289.         OPTION "30",thirty
  290.         OPTION "35",thirtyfive
  291.         OPTION "40",forty
  292.         OPTION "45",fortyfive
  293.         MEND
  294.  
  295.  
  296.  
  297.  
  298.  
  299. ;        navigation code begins here
  300.  
  301.  
  302. navcom:        MENU "NavCom",1,5,NORMAL
  303.         OPTION "Course",course
  304.         OPTION "Chart ",chart
  305.         OPTION "Pursue",pursue
  306.         OPTION "Elude ",elude
  307.         MEND
  308.  
  309.  
  310. course:        TYPE "course ",13
  311. chart:        TYPE "chart",13
  312. pursue:        TYPE "pursue",13
  313. elude:        TYPE "elude",13
  314.  
  315.  
  316.  
  317.  
  318. ;End Begin LogiTech Menu
  319.